home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg1
/
g33.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
491b
|
19 lines
100 ' G33 T.WAKAMATSU
110 C(1)=7:C(2)=3:C(3)=2:C(4)=6:C(5)=4:C(6)=5:C(7)=1
120 P=5.8!
130 Z=0:R=0:L=1:CLS
140 FOR T=0 TO 1860 STEP P
150 Z=Z+.5!:R=R+.2!:L=L+.02!:M=INT(L)
160 X=Z*SIN(T)+320:Y=Z*COS(T)+240
170 LINE(X-R,Y-R)-(X+R,Y+R),PSET,C(M),B
180 NEXT T
190 FOR D=1 TO 15000:NEXT D
200 Z=0:R=0
210 FOR T=0 TO 1860 STEP P
220 Z=Z+.5!:R=R+.2!
230 X=Z*SIN(T)+320:Y=Z*COS(T)+240
240 LINE(X-R,Y-R)-(X+R,Y+R),PSET,0,B
250 NEXT T
260 FOR D=1 TO 3000:NEXT D
270 CLS